home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / RSTMAP.for < prev    next >
Text File  |  1991-04-13  |  879b  |  40 lines
  1.         SUBROUTINE RSTMAP(AREA)
  2.     IMPLICIT NONE
  3.         REAL*4 AREA(14)
  4. C
  5. C       THIS SUBROUTINE RESTORES THE MAPPING PARAMETERS SAVED BY "SAVMAP".
  6. C
  7.         INCLUDE DIGLIB$KOM:PLTCLP.PRM
  8.         INCLUDE DIGLIB$KOM:PLTCOM.PRM
  9.         INCLUDE DIGLIB$KOM:PLTSIZ.PRM
  10. C
  11. C       RESTORE THE MAPIT CLIPPING LIMITS
  12. C
  13.         XMIN = AREA(1)
  14.         XMAX = AREA(2)
  15.         YMIN = AREA(3)
  16.         YMAX = AREA(4)
  17. C
  18. C       SAVE WORLD TO VIRTUAL COORD. TRANSFORMATION CONST.
  19. C
  20.         UX0 = AREA(5)
  21.         UDX = AREA(6)
  22.         UY0 = AREA(7)
  23.         UDY = AREA(8)
  24.         LOGX = .FALSE.
  25.         IF (AREA(9) .NE. 0.0) LOGX = .TRUE.
  26.         LOGY = .FALSE.
  27.         IF (AREA(10) .NE. 0.0) LOGY = .TRUE.
  28. C
  29. C       RESTORE VIRT. COORD. OF AXES
  30. C
  31.         XVSTRT = AREA(11)
  32.         YVSTRT = AREA(12)
  33.         XVLEN = AREA(13)
  34.         YVLEN = AREA(14)
  35. C
  36. C       ALL DONE
  37. C
  38.         RETURN
  39.         END
  40.